-IDENTIFICATION DIVISION
-PROGRAM-ID Radioactive_Decay
-
-ENVIRONMENT DIVISION
-ENGINE Anabrid-THAT
-REQUIRES Coefficient 2
-REQUIRES Integrator 1
-REQUIRES Inverter 1
-
-DATA DIVISION
-OUTPUT OUTPUT.X N
-ALIAS COEFFICIENT.1 InitialValue
-ALIAS COEFFICIENT.2 Decay
-
-PROGRAM DIVISION
-+1 -> InitialValue -> N0
-N’, IC:N0 -> Integrator.1 -> -N
--N -> Decay -> -lambda*N=N’
--N -> Inverter.1 -> N
-
-OPERATION DIVISION
-MODE REPEAT
-OP-TIME 20ms